﻿Public Class frmClientList
    Dim dbBase As New dbClient
    Dim frmCtrl As New control
    Dim dtList As DataTable
    Dim EntryID As String
    Public ModuleName As String

    Private Sub frmClientList_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        frmCtrl.reDesign(Me)
        EntryID = ""
        UcGridFilter1.Enabled = True
        dtList = dbBase.GetActiveClientList()
        UcHeader1.Iniliaze("LIST : Client", Me, Nothing, UcGridFilter1.getDataGridView(), "ID", True)
        UcGridFilter1.Initialize(dtList, "ID", UcHeader1, Me, True)
        If (dtList IsNot Nothing) Then

        End If
        If (ModuleName = "Finance") Then
            UcHeader1.ActionCtrl(False, True, False, False, False, False, False, False, False, True)
        End If
    End Sub
End Class